Unit SHOW;

interface
uses crt,dos,graph,globVar;

Procedure Mostra;

implementation

Procedure Mostra;

var  ii:integer;

begin
   PtInicial:=170;
   v:=1;
   moveTo(m*v,a+ptInicial+10*buffer[u+EscX[IescX]*v div 2] div calY[IEscY]);
   for v:= 1 to 180 do
   LineTo(m*v,a+PtInicial+10*buffer[u+EscX[IescX]*v div 2] div calY[IEscY]);
end;
end.